home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / dpat / dpat129 / amighpv2a / examples / codybis.s < prev    next >
Text File  |  1977-12-31  |  2KB  |  159 lines
  1.     include    entries.i
  2.     con(5)    DOCODE
  3. Debut    con(5)    Fin-Debut
  4.  
  5. car    equ    $800F5
  6. c    equ    $800FA
  7. taille    equ    $800FF
  8. adr.deb    equ    $80104
  9. adr.max    equ    $80109
  10. adr.tmp    equ    $8010E
  11. adr    equ    $80113
  12.  
  13.  
  14.     GOSBVL    $0679B
  15.     GOSUBL    TEST
  16.     LCHEX    $00005
  17.     D0=(5)    $800FF
  18.     A=DAT0    A
  19.     ?C=A    A
  20.     GOYES    LAB0
  21.     GOTO    LAB1
  22. LAB0
  23.     GOSBVL    $067D2
  24.     A=DAT0    A
  25.     D0=D0+    5
  26.     PC=(A)
  27. LAB1
  28.     D0=(5)    $8010E
  29.     C=DAT0    A
  30.     D0=(5)    $800FF
  31.     A=DAT0    A
  32.     C=C+A    A
  33.     LAHEX    $00005
  34.     C=C+A    A
  35.     D0=(5)    $80109
  36.     DAT0=C    A
  37.     LCHEX    $0000A
  38.     D0=(5)    $8010E
  39.     A=DAT0    A
  40.     C=C+A    A
  41.     DAT0=C    A
  42.     D0=(5)    $80113
  43.     DAT0=C    A
  44.     D0=(5)    $8010E
  45.     C=DAT0    A
  46.     D0=(5)    $80104
  47.     DAT0=C    A
  48.     AD0EX
  49.     GOSBVL    $067D2
  50.     D1=D1+    5
  51.     D=D+1    A
  52.     GOSBVL    $0679B
  53.     AD0EX
  54.     GOSUBL    TEST
  55.     D0=(5)    $800FF
  56.     C=DAT0    A
  57.     CSRB    A
  58.     DAT0=C    A
  59.     LCHEX    $0000A
  60.     D0=(5)    $8010E
  61.     A=DAT0    A
  62.     C=C+A    A
  63.     DAT0=C    A
  64.     ST=0    15
  65. LAB2
  66. LAB3
  67.     D0=(5)    $80109
  68.     C=DAT0    A
  69.     D0=(5)    $80113
  70.     A=DAT0    A
  71.     ?C>A    A
  72.     GOYES    LAB4
  73.     GOTO    LAB5
  74. LAB4
  75.     LCHEX    $00002
  76.     D0=(5)    $800FF
  77.     A=DAT0    A
  78.     ?C=A    A
  79.     GOYES    LAB6
  80.     GOTO    LAB7
  81. LAB6
  82.     ST=1    15
  83.     GOSBVL    $067D2
  84.     A=DAT0    A
  85.     D0=D0+    5
  86.     PC=(A)
  87. LAB7
  88.     D0=(5)    $80113
  89.     C=DAT0    A
  90.     D1=C
  91.     D0=(5)    $800FA
  92.     C=0    A
  93.     C=DAT1    B
  94.     D1=D1+    2
  95.     DAT0=C    A
  96.     D0=(5)    $80113
  97.     AD1EX
  98.     D1=A
  99.     DAT0=A    A
  100.     D0=(5)    $8010E
  101.     C=DAT0    A
  102.     D1=C
  103.     D0=(5)    $800F5
  104.     A=DAT1    A
  105.     DAT0=A    A
  106.     D0=(5)    $800FA
  107.     C=DAT0    A
  108.     D0=(5)    $800F5
  109.     A=DAT0    A
  110.     C=C+A    A
  111.     DAT0=C    A
  112.     DAT1=C    B
  113.     D1=D1+    2
  114.     D0=(5)    $8010E
  115.     AD1EX
  116.     D1=A
  117.     DAT0=A    A
  118.     D0=(5)    $800FF
  119.     C=DAT0    A
  120.     C=C-1    A
  121.     DAT0=C    A
  122.     GOTO    LAB3
  123. LAB5
  124.     D0=(5)    $80104
  125.     C=DAT0    A
  126.     D0=(5)    $80113
  127.     DAT0=C    A
  128.     GOTO    LAB2
  129.  
  130.  
  131. TEST
  132.  
  133. ischaine    equ    $80118
  134.  
  135.     D0=(5)    $8010E
  136.     A=DAT1    A
  137.     DAT0=A    A
  138.     C=A    A
  139.     D1=C
  140.     D0=(5)    $80118
  141.     A=DAT1    A
  142.     DAT0=A    A
  143.     LCHEX    $02A2C
  144.     A=DAT0    A
  145.     ?C#A    A
  146.     GOYES    LAB8
  147.     GOTO    LAB9
  148. LAB8
  149.     GOSBVL    $067D2
  150.     LAHEX    $00202
  151.     GOSBVL    $05023
  152. LAB9
  153.     D1=D1+    5
  154.     D0=(5)    $800FF
  155.     A=DAT1    A
  156.     DAT0=A    A
  157.     RTN
  158.  
  159. Fin